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MODULE RM3NEXTRE (LANGUAGE Bh 15352) ’ 
— = 'v04-000' 
BEGIN 


SRR ERE ERE REAR EEE EEE RAE REESE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'w DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i; at ad NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
*® 
* 
* 
® 
® 
*® 
® 
® 
!® = 
® 
® 
+d 
& 
*® 
® 
*® 
® 
® 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Ms enmPOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS 


NOT SUPPLIED BY DIGITAL. 
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'e¢ 
00 i | 
ih FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
0034 ' ABSTRACT: 
0035 : This module contains routines to skip records and skip 
0036 : overhead for key compares | 
0037 ‘ 
0038 ' 
0039 ! ENVIRONMENT. 
0040 ' 
0041 1 | VAX/VMS OPERATING SYSTEM | 
Rpg ' | 
004 leo 
0044 
0045 ’ 
478 : AUTHOR: Todd M. Katz RECREATION DATE: 05-Sep-1982 
0048 ! Modified by: 
0049 ' 
0050 : v03-011 0GB0001 Donald G. Blair 05-Dec-1983 
0051 ; The routine RMSREC_OVHD was found to be critical to performance. 
6036 : Therefore, I've rewritten/reorganized the routine to make it 
005 ‘ faster, somewhat at the expense of ease of understanding the 
bpee code. 
0056 : v03-010 MCNO002 Maria del C. Nasr 22-Mar-1983 
0057 : More linkages changes, in particular, RMSREC_OVHD. 


RM3NEXTRE 4 p | 
WOen500 ¢ age : 


: 8 AX=11 Bite -32 V4.0 
RMS .SRCIRMSNEXTRE .B 


| 
| 
; BB 0058 )} ; 
H 9 0059 1! v03-009 MCNO001 Maria del C. Nasr 24-Feb-1983 : 
3 rs Bpey ! } Reorganize Linkages | : 
; 6 Bp0¢ 1! v03-008 TMK0006 Todd M. Katz 28-Sep-1982 3 
 & 065 1! Fix an error in RMSREC_OVHD. For prologue 3 files, all types : 
; & 0064 1! of primary data records have a record size field xcept for 5 
; 9065 1! the fixed Length formatted records of those files that have 3 
; 666 0066 1! both key compression and data compression turned off. I was not ; 
; 6 6OF 0067 1! checking the compression bits; but rather, just that the record F 
: 68 0068 1! format was fixed before treated the records as if they did not 
; 0069 1! have a record size field. Of course, this caused problems 
; 0070 1! because both the record overhead and the size of the record 
3 f} ait : would be incorrectly determined. 
a 0075 1! v03-007 TMKO00S Todd M. Katz _ 05-Sep-1982 
; «674 0074 1! Re-write the remaining routines in this module (RMS$REC_OVHD, 
; 0075 1! RMSGETNEXT_REC, RMSCOMPARE_REC), and check in a new source 
; 0076 1! since all the routines in this module will have been newly 
SRR ed 0077 1! added or re-written. While doing this, add support for Prologue 
eee.) 0078 1! 3 SIDRs to those routines which require modification. 
; 0079 1! 
: 80 0080 1 !xe 
;6 «(CB 0081 1 
oe 0082 1 LIBRARY ‘RMSLIB:RMS'; 
: 83 0083 1 
: 84 0084 1 REQUIRE ‘RMSSRC:RMSIDXDEF’; 
; 8 0149 1 
; 0150 1 ! Define default PSECTS for code 
s OF 0151 1! 
; & B12¢ 1 PSECT 
; 0153 1 CODE = RMSRMS3(PSECT_ATTR), 
> 90 0154 1 PLIT = RMSRMS3(PSECT_ATTR); 
; 0155 1 
s 2 0156 1 ! Linkage 
; 0157 1! 
>; «94 0158 1 LINKAGE 
; 0159 1 L_COMPARE_KEY, 
; «96 0160 1 L-PRESERVE1, 
. oF 0161 1 L_RABREG 67, 
; 8186 1 L-REC_OVAD 
; 99 0163 1 L-SIDR_FIRST; 
: 100 0164 1 3 
3: 101 3182 1 ! External routines | 
: ie 166 1! 
; 10 0167 1 EXTERNAL ROUTINE 
> 104 0168 1 RMSCOMPARE_KEY : RLSCOMPARE_KEY, 
> 105 0169 1 RMSRECORD_REY : RLSPRESERVE1, | 
: 106 0170 1 RMSRECORD_VBN : RLSPRESERVE1; 
3: 107 0171 #1 
; 108 bis 1 ! Forward Routine 
109 0178 1 | 
: 110 pie 1 FORWARD ROUTINE 
: 111 175 1 RMSREC_OVHD : RLSREC_OVHD; | 
| 
| 
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RMS.SRC 


XSBTTL "RMSCOMPARE REC® 
GLOBAL_ROUTINE RMSCOMPARE_REC (SRCH_KEY_ADDR, SRCH.KEY_SIZE, LEVEL) : 
RLSRABREG_67 = 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine compares a key within a primary data or SIDR record with 
a search key. There are three possible comparisons that can take place 
depending upon the key of reference of the index descriptor and the 
level of the bucket containing the record as represented by the input 
parameter LEVEL: 


1. Search Key vs. Primary Key in Primary Data Record. 
In this case either both the key of reference and LEVEL are 0, or 
the key of reference is 0, and (ever is -1. 


2. Search Key vs. Secondary Key in Primary Data Record. 
In this case the key of reference will be other than the primary key, 
and aves, will be -1 indicating that the record is a primary data 
record. 


3. Search Key vs. Secondary Key in Secondary Data Record (SIDR). 
In this case the key of reference will be other than the primary key, 
and LeveL will be 0. There is of course, only one key in such a 
record. 


One special note: A LEVEL of -1 indicates that RMS will have to compare 
the search key with some key in this primary data record, but which key 
depends upon the key of reference of the input index descriptor. If the 
file is a prologue 3 fiie, then the or saery key will ‘‘lLook’’ different 
from the alternate keys since it will be at the front of the record, and 
might also be compressed. What is more important is that because 

the primary key has been extracted from the rest of the primary data 
record, and the primary data record itself might be compressed, if the 
comparison is to be made between the search key ard a secondary key in 
the primary data record, it will be impossible to find the secondary 
key in the record. In fact, it will be impossible to find any secondary 
key in the record. Therefore, If the file is a prologue 3 file, and the 
LEVEL is -1, this routine requires that REC_ADDR point to an unpacked 
version of the primary data record. 


CALLING SEQUENCE: 
RMSCOMPARE_REC () 

INPUT PARAMETERS: 
SRCH_KEY_ADDR = address of the search key 
pace Kev Sie size of the search key 


if Q, then the record is primary data record or SIDR 
if -1, then the record is a primary data record 


IMPLICIT INPUTS: 
IDX_DFN - address of index descriptor 
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RMSNEXTRE 16-Sep-1984 01:53: AX-11 Bliss-32 V4.0-74 P 4 
vou~000 RMSCOMPARE_REC 1 36p-198e 93:07:30 PANS SREIRASNEXTRE -30¢ or a 
17 , t IDXSV_KEY_COMPR - if set, key compression is enabled 
1 IDXS$B_KEYREF - key of reference 


BSW_KBUFSZ 
BSB_PLG_VER 


a ea 


I 
I 


AB 
IRBSL_KEYBUF 
REC_ADDR 


- address of IFAB 
- size of a keybuffer 
- prologue version of file 


- address of IRs 
- address of the contigious keybuffers 


- address of data record 


COOo INAS 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


-1 - search key 
0 - search key 
1 - search key 


SIDE EFFECTS: 


AP will be trashed. 
If key compression is enabled, and LEVEL = 0, then the key of the data 
record maybe found in its expanded form in keybuffer 5. 

BEGIN 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

; key of data record 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

BUILTIN 
AP: 
a. REGISTER 


key of data record 
key of data record 
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IDR. | 


IF .LEVEL EQLU 0 
THEN 


sen 
68 

5 

71 R_IDX_DFN_STR, 

$f¢ R_IFAB_STR, 
10 $f R_IRAB_STR, 
1 e R-REC_ADDR; 
ig 6 LOCAL 
13 f COMPARE _KEY; 
16 8 ! Either the search key is to be compared with the the primary key of the 
\? o the primary data record or the secondary (and only) key of the 
19 ; i 
$9 § 
2 


If key compression is enabled, then the primary or secondary key of 
the data record must be extracted and re-expanded before it can be 
compared with the search key. A contigious key - contigious key 
comparison will be made between the search key, and the key of the 
data record in its expanded form in keybuffer §. 
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27 


if .1DX_DFNCIDX$V_KEY_COMPR) 
BEGIN 
GLOBAL REGISTER | 
R~IMPURE ; 
AP _= 0; 
RMSRECORD_KEY (KEYBUF_ADDR(5S)); 


AP = 3; 
COMPARE _KEY = KEYBUF_ADDR(S); 


, at ee 


Wr—O OM 


! Key compression is not enabled, therefore there is no need to 
re-expand the key of the data record. 
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; 246 : 
; 245 0 3 
; 246 0 : : 
3 obs 0310 ELSE : 
: 248 0311 BEGIN ; 
; 249 0 ; é 
3 29 0 ? AP = 3; 3 
3 2g 5 5 ! The comparison will be made between the search key and the primary | 3 
an 3318 : key of a primary data record. If the file is a prologue 3 file ; 
> 254 1 ! then RMS will position directly to the contigious primary key in : 
; 255 0318 ! the primary data record before the comparison, and a contigious 3 
; 256 0319 ! key = contigious key comparison will be performed; otherwise, RMS : 
: 257 0320 ! will position past the record overhead directly to the primary s 
; 258 0321 ! data record before the comparison is made, and a contigious : 
; 44 83 § } search key - data record comparison is performed. : 
; 261 $354 IF .IDX_DFNCIDXSB_KEYREF] EQLU 0 3 
; o¢ 0325 THEN 3 
; B3 $ 4 BEGIN F 
; 264 0 4 IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 : 
; 265 0328 4 THEN ; 
; 266 0329 4 AP = 2; 3 
: 267 0230 4 END 3 
: 268 ttt 4 : 
; ep 3 § 4 ' The comparison will be made between the search key and the 3 
: 270 83 4 ' secondary key in the SIDR. Regardless of the prologue version 3 
3 er 4 ! of the file, RMS must position past the record overhead to the : 
: Lf: 335 4 ' secondary key itself, and perform a contigious key - contigious F 
: 7 4 ! key comparison. : 
3 74 4 : 3 
3 ar 8 ELSE 3 
: z , LEVEL = -1; 3 
3 ere 1 ! Position past the record overhead either directly to the key ‘ 
: 279 § ' the search key is to be compared with, or to the beginning of the : 
$ £0 ? primary data record proper. 2 
3; 5 COMPARE_KEY = .REC_ADDR + RMSREC_OVHD(.LEVEL); : 
; 28 6 END 3 
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TLE RM3NEXTRE 
ENT \v04-000\ 


TRN RMSCOMPARE KEY, RMSRECORD_KEY 
XTRN RMSRECORD_VBN 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
0918  8F BB 00000 RMSCOMPARE REC:: 
PUSHR 


; 7 

; ! Th 

: 5 ! Which key it compared with will depend upon the key of reference of the 

: ? } index descriptor. | 

; ; ELSE | 

; BEGIN 

3 2 AP = 2; 

; $ ! If the file is a prologue 2 file, then it will be necessary to 

3 ! position past the record overhead (and do so) before the search key 

; 8 ! is compared with the a key in the primary gate record by means of a 

: 4 contigious search key - data record comparison. 

3 1 If ,,FABCIF8SB_PLG_VER] LSSU PLGSC_VER_3 

; 300 ; $i BEGIN 

; Ol 4 COMPARE _KEY = .REC_ADDR + RMSREC_OVHD(0); 

3 4 8 5 ? END 

; 304 0367 4 ! If the file is a prologue 3 file, then REC_ADDR points directly to an 

; 305 0368 4 ! unpacked version of the primary data record. There will be no need to 

; 306 0369 4 ' perform any initial positioning and the type of comparison which 

; 4 Br0 ? will be required will be contigious search key - data record. | 

; 309 0372 ELSE 

; 310 037 COMPARE _KEY = .REC_ADDR; 

3: «311 0374 ND; 

3 \¢ gare 

; 17 O59 Perform the required comparison, and return the result. 

: 315 0378 RETURN RMSCOMPARE_KEY (.COMPARE_KEY, .SRCH_KEY_ADDR, .SRCH_KEY_SIZE); | 

: 316 0379 #1 END; 
| 
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#°M<R3,R4,R8,R11> : 0177) 
1¢ AE DS 00004 TSTL LEVEL : 0282 
43 12 00007 BNEG 4 ; 
20 1c (A? 06 E1 00009 BBC #6, 28(IDX_DFN), 1$ : 0291 
C bs 90 CLRL AP : 0300 
50 CA 3¢ 0001 MOVZ2WL 180(IFAB), RO : 0301 
60 8940 oF 91 PUSHAL @96(1RAB) (RO) ; 
0006 1 BSBW = =s- RMSRECORD_KEY ; 
s € 1¢ ADDL2 #4, SP ; 
3 b 1F MOVL #3. AP ; 9 
0 0084 CA 3¢ 3 MOVZ2WL 180(I1FAB) RO : 
4 60 8940 bE 9 MOVAL 3 6(IRAB) CROJ, COMPARE_KEY ; 
36 11 0002C BRB $ > 0291 


oS 
| Ra 


? 
vivant RMSCOMPARE _REC 1b-sSe0-1984 93:39:98 PANS Snedamane anne o3o4 mak 


eI 


SC 0 1$: MOVL #3, AP : 031 : 
21 A? ' : STs 30K peW) i O3ae ; 
03 0087 A 3 CAPS 3(1FAB), #3 + 0327 ; 
5¢ 2 06 MOVL #2, AP t 0329 ; 
4 1 4 BRB + 0324 : 
1c OAL 1 ¢ 904 3s MNEGL #1, LEVEL : 0339 ; 
51 1c AE p 0 46 6 MOVL EVEL. RI + 0345 ; 
5¢ 85 p0 4C 4$ MOVL #2, AP + 0354 ; 
0 0087 CA 91 OO04F CMPB sé BSC IFAB), #3 + 036 : 
B te 24 BGEQU 6 ; ; 
1 H anes CLRL R1 : 0364 F 
0090v 0 00 5$ BSBW RMSREC_OVHD : 
54 50 $ C1 00058 ADDL3 REC_ADBR. RO, COMPARE_KEY : 
9 11 0005F BRB 7$ : 
54 6 dO 00061 6s MOVL = REC_ADDR, COMPARE KEY : 
9 18 AE OD 90064 4 MOVL SRCA_KEY.SIZE, R ; 
5 14 AE D 0068 MOVL SRCH_KEY_ADDR, R s 
51 54 b0 0006C MOVL  COMPARE_REY, R : 
00006 30 0006F BSBW RMSCOMPARE KEY : 
0918 8F Ba 4463 POPR #°M<R3,R4,R8,R11> ; 0379 
5 00076 RSB 5 


; Routine Size: 119 bytes, Routine Base: RMSRMS3 + 0000 
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; 31 0 1 XSBTTL "RMSEXT_ARRY RFA’ | 
2 a 1 1 GLOBAL ROUTINE RMSERT_ARRY_RFA (VBN, ID) : RLSRABREG_67 = 
: $21 : 1 i+ | 
. ' | 
; § 5 1 | FUNCTIONAL DESCRIPTION: | 
: 5 $ 1 i This routine'’s responsibility is to extract out and return the 

3 $ si} components of the current SIDR array element's RFA pointer, provided 

3 9 1! the current element has not been flattened, and there is a RFA 

3 ; is : } pointer to extract. | 
: 330 3% 1 § CALLING SEQUENCE: | 
3 (3S) 4 93 | BSBW RMSEXT_ARRY_RFA() 

; ‘ ; 95 1 | INPUT PARAMETERS: 

; 38 1! NONE 

3 5 0397 1! 

: 0398 1! IMPLICIT INPUTS: 

: = 0399 1! 

; $ 0400 1! 1FAB - address of the IFAB 

3 H ret : IFBSB_PLG_VER - prologue version of the ISAM file 

: 1 a108 ; } REC_ADDR - address of the current SIDR array element 

; : 04605 1 | OUTPUT PARAMETERS: 

3 4 0406 1! 

: 345 0407 1! VBN - VBN of the current SIDR array element's RFA pointer 

3 $ bcos : } ID - ID of the current SIDR array element's RFA pointer 

: 348 0410 1 | IMPLICIT OUTPUTS: 

: 9 0411 1! NONE 

3 390 pels 1! 

; 351 13 1°! ROUTINE VALUE: 

; 26 0414 1! 

> 0415 1! suc - if the RFA has been successfully extracted. 

; «354 be1$ ,? DEL - if the current SIOR array element is marked deleted. 

» ie 417 1! 0 - if the cuurent SIOR array element is flattened 

3 28 0418 1! (ie no RFA pointer is present). 

.* oh 1! 

: 358 420 1 ! SIDE EFFECTS 

3; 359 0421 1! If SUC is returned, the SIDR array's RFA is returned too. 

$ 0 04 § 1! If DEL is returned, the SIOR array's RFA is returned too. 

3 1 1! If 0 is returned, the SIDR array’s RFA is not returned. 
3 § 424 1! AP is trashed. 
3 425 1! | 
s 4 $ 1 tee 

: 5 4 1 

; 4 $ BEGIN 

; 368 0 BUILTIN | 
3 1 AP; 
; 38 EXTERNAL REGISTER 

; 435 R_IDX_DFN STR, 

; 0436 R-REC"ADDR_STR; 
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GLOBAL REGISTER 
R_BDB; 


| 
If there is no SIDR array RFA to extract, return 0. 
IF _ .REC_ADDRCIRCSV_NOPTRSZ] 
RETURN 0; 
Extract the VBN and ID from the RFA pointer of the CURRENT SIDR element. 


AP = 2; 
-VBN = RMSRECORD_VBN(); 
Fig PAOC IOS PLS_VERI GEQU PLGSC_VER_3 
mee’ = ,REC_ADDRCIRC$W_1DJ 
-ID = .REC_ADDRCIRC$B_1D); 
If the current SIDR array element is marked deleted, return that status. 
if pREC_ADDREIRCSV_DELETEDI 
RETURN RMSERR(DEL) 


Otherwise, return success. 


LSE 
RETURN RMSSUC(); 
END; 


54 DD 00000 RMSEXT_ARRY RFA:: 
PUSAL 4 


; 0381 
bb 04 £0 00002 BBS #4, (REC_ADDR), 4$ > 0443 
5C 02 bo 00006 MOVL #2. A > 0449 
a 00906 0 9009 BBW RMERECORD _VBN : 0450 
8 00B7 CA 0 $04 (MPR $(TFAB), rh} + 0452 
07 1F G01 BLSSU : 
OC BE 01 A6 3¢ 0001 MOVZWL 1(REC_ADDR), aID > 0454 
05 11 0001C BRB ; 
OC BE 01 ag 9A OOOIE 15: MOVZBL 1(REC_ADDR), @ID > 0456 
ry § 0023 2$: BBC a (REC ghrbr. 3$ > 0460 
50 8262 F 3¢ a t MOVZWL a3 $398. + 0467 
50 1 0 3$: ROVE al. RO : 
96 D4 8 4$: CLRL =: RO > 0469 
10 BA 0 5$: POPR #*M<R4> : 
5 RSB : 
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GLOBAL ROUTINE RMSGETNEXT_REC : RLSRABREG_67 NOVALUE = 


. 
' 
. 
' 
. 
{ 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
J 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
‘ 
. 
‘ 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
* 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 


++ 


FUNCTIONAL DESCRIPTION: 


RMS .SRCJRM 


This routine accepts as input the address of a current index, primary 
data, or SIDR record. It positions past this current record to a new 
current record, the next record in the bucket. If there is no next 
record, RMS positions to the first byte past the current record. 


CALLING SEQUENCE: 
RMSGETNEXT_REC() 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


IDX_DFN 
IDX$B_KEYREF 


IFAB 
IFBSB_PLG_VER 
IRAB 
IRBSL_CURBDB 
IRBSL—REC_COUNT 
REC_ADDR 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


AB 
IRBSL_REC_COUNT 
REC_ADDR 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


address of index descriptor 
key of reference 


address of IFAB 
prologue version of file 


address of IRAB 
address of BDB for current record's bucket 
number of preceeding index records 


address of current record 


address of IRAB 
number of preceeding index records 


address of the new record 


If the current record is a prologue 3 index record, then the count 


of the number of records precee 


ng the current record is incremented 


(there is a new current record, the next one in the bucket). 


BEGIN 
EXTERNAL REGISTER 


AX-11 8B tf V4.0-7 
NEXTRE.832; 


42 
1 


<2 
ba 


LOCAL 
REC_SIZE; 


=p the global register REC_SIZE according to whether the current record 


Primary data record - 
DR 


OOCKCKQOOOOOCOO 


R 
ee R oo 

fe E <= Level of index bucket 
URBDE), BDBSL_ADDRJ, BKTSB_LEVEL]; 


1. 
: ¢: Index record - 


EC. 
EC. 
EC. 
REC_SIZE = .BBLOCKC.BBLOCKC. IRABLIRBSL_C 


0 

4 IF (.REC SIZE EQLU 0) 

5 AND 

$ rene OR PFE BRED _KEVAEE 2 GTRU 0) 
: REC_SIZE = -1; 

0 ! If the current record is a prologue 3 index record, then along with 

1 ! pos *§ tone past it to what hopefully is the next record in the bucket, 
; ! RMS increments a count of the number of index records preceeding the 
? : new current record in the index bucket, 

> if (.REC_SIZE GTRU 0) 

: eng TOS SUS VER GEQU PLGSC_VER_3) 

4 IRABCIRBSL_REC_COUNT] = .IRABCIRBSL_REC_COUNT] + 1; 

1 


! Position past the current record either to next record, or to the first 
byte past the current record, if there is no next record. 


REC_ADDR 
REC~ADDR 
END: 


.REC_ADDR + RMSREC_OVHD(.REC_SIZE; REC_SIZE); 
REC-ADDR + .REC_STZE; 


= 
Oo 
SOQOOCOCOSCSOOOOOOOOOOOOOOOoOoOo 


—PNOPENs POPPIN N UT 


Se Se Fe Se Ge Fe Se Oe Ge Se Se Se Se Ge Ss Ge FH Se Be Ge Se Ge Se Se Se Ge Se Ge Be Ss Ge Se Se Se Se Se Se Se Se we 
a 


50 20 AY DdO 00000 tcc | REC:: 


VL 32CIRAB), RO > 0542 
50 18 AO DO 00004 VL  24(RO), R : 
1 0C AO 9A 00008 MOVZBL 12(RO); REC_SIZE ; 
08 12 0000C NEQ  1$ > 0544 
21 aA? 9 900 TSTB «—-33(IDX_DFN) : 0546 
3 4 1 EQL 1$ 3 
51 1 CE 0001 MNEGL #1, REC_SIZE > 0548 
1 0 0016 1$: TSTL Ret SIZE : 0555 
0B 13 0001 BEQL ‘ ; 
03 00B7 CA 91 OOOIA CMPB B2(1FAB), #3 > 0557 
04 1F OOOTF BLSSU-2$ ; 


n 7 
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ZSBTTL 'RMSGETNXT_ ARRAY’ 
GLOBAL ROUTINE RMSGETNXT_ARRAY : RLSRABREG_67 NOVALUE = 


44 
! 


; FUNCTIONAL DESCRIPTION: 


oon 


This routine's purpose, is Ba a pointer to a current SIDR array 
element, position to the SIDR array element that follows, or to the 
first byte past the current element if there is no next element 


i CALLING SEQUENCE: 
BSBW RMSGETNXT_ARRAY () 


i INPUT PARAMETERS: 
NONE 


i IMPLICIT INPUTS: 


pojejeololelejlelelelolelojelelelolelelolololololo) 
sO 09.09 00 09 09 09 09 09 09 INI NI NII NINO oO 


DONAVE WN $0 ODNAUES WN OCONAUES WN OUOOn 


! 
1 
' 
1 
! 
! 
t 
' 
' 
' 
! 
! 
1 
' 
' 
} REC_ADDR - address of the current SIDR array element 
! 
' 
' 
' 
1 
' 
! 
i] 
1 
' 
i] 
' 
' 


IFAB - address of IFAB 
IFB$B_PLG_VER - prologue version of the ISAM file 

059 i QUTPUT PARAMETERS: 
8 4 NONE 
059 i IMPLICIT OUTPUTS: 
2 REC_ADDR - address of the next SIDR array element 
059 i ROUTINE VALUE: 
8 NONE 
0600 i SIDE EFFECTS: 
0601 NONE 
060 


BEGIN 
EXTERNAL REGISTER 
IF STR, 
R-REC_ADDR_STR; 
The current SIDR array element consists of just 1 control byte. 
IF .REC_ADDRCIRC$V_NOPTRSZ) 


REC_ADDR = .REC_ADDR + 1 
ELSE 


! The file is a prologue 3 file, and the current wey element consists 
of a control byte, a one word ID, and a 2, 3, or 4 byte VBN. 


if .IFABCIFB$B_PLG_VER] GEQU PLGSC_VER_3 
REC_ADDR = .REC_ADDR + (.REC_ADDRLIRCS$V_PTRSZ] + 1) 


BEER EEE EE FAWN PIPININININDY 2 SS OO SS "OOO 


Be Be Be Oe Oe Be Se Be Be Ge Se Ge Be Se Oe Ge Se Ge Se Ge Se Ge Ge Se Se Se Ge oe Se Se Se Ge Be ee SH Se Be SHH SHEE Se Oe He Oe ose Oe Oe OHS OHS BH es Be ee 
LV PUPP PV PVPS DVPU LULU ITIVE LDU SVS VSS SISSY 
So 
oa 
Oo 


WR 0 DONO UE WP 0 OONOAUES WN $ O OONOA UE WN OO OWONOUES WN (OO OONAOULS WN Oo 


AAAI 
SOoOCoOoOooSSOoooo 
PAAAAAAA OOO 
Mononon — 3 
WN SO OOnNOufS wry 


: i ¢ + IRCSC_DATPTRBS3 

: 6 ' The file is a prologue 2 file, and the current ares ge ty onsists 
; ef be 5 if a control byte, ; one byte ID, and a ae ae 4 byte N. ; 

: 385 06 : ELSE 

; 570 £650 REC_ADDR = .REC_ADDR + (.REC_ADDRLI ERC SV _PTRSZI + 1) 

: a) se 1 + IRCSCa TPTRBAS; 

; ng b638 1 END; 


03 66 04 £1 00000 RMSGETNXT_ARRAY:: 
BC #4, (REC_ADDR), 1$ 
56 43 00004 INCL REC_ADDR 
05 00006 RSB 
03 00B7 CA 91 00007 1$: CMPB \93(1FAB), #3 
OB 1F O0000C BLSSU 
50 66 02 00 EF sei EXTZV $0. #2, (REC_ADDR), RO 
56 05 A046 YE 0001 MOVAB 5(RO)CREC _ADBRI, REC _ADDR 
05 00018 RSB 
50 66 02 00 EF 00019 2$: EXTZV #0, #2, (REC_ADDR), RO 
56 04 A046 YE ODDIE MOVAB 4(RO)CREC _ADBRI, REC _ADDR 
05 00023 RSB 


; Routine Size: 36 bytes, Routine Base: RMS$RMS3 + OODE 
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16-Sep-1984 01:53:4 AX-11 Bliss-32 V4.0-742 3 
v04-000 RMSREC_OVHD 13-808-1 38s 93:38:98 $Rainex ~~ 


- 7 1 
-$ RMS .SRCIRMSNEXTRE .B32; 1 (6 


<z 
oz 
ia 


; Sr 6 1 ZSBTTL ‘RMSREC_OVHD' | H 
H tS ° 5 ! GLOBAL ROUTINE RMSREC_OVHD (REC_TYPE; REC_SIZE) : RLSREC_OVHD = : 
; 578 6 ; 1 !44 ; 
Srv 633 1! | $ 
; go 272 } FUNCTIONAL DESCRIPTION: | : 
3 SB 641 1! This routine accecpts as input the address of a record and the record's ; 
3 38 0642 1! type. and returns the number of bytes of record overhead after setting : 
> 584 0645 1! the global register REC_SIZE to the size of record itself minus this 3 
; 585 0644 1! overhead. 3 
; 286 645 1! $ 
; 646 1 ! CALLING SEQUENCE: 3 
; 588 0647 1! : 
; 589 0648 1! RMSREC_OVHD () F 
; 590 0649 1! : 
; 591 0650 1 ! INPUT PARAMETERS: : 
H 236 0651 1! REC_TYPE - type of record REC_ADDR points to ; 
; 2 0636 1! <0 - SIDR : 
; 594 0655 1! = 0 - primary data record ; 
s 595 0654 1! >0 - index record : 
; 596 0655 1! ; 
3 397 0656 1! 3 
; 598 0657 1 ! IMPLICIT INPUTS: : 
; oP 0658 1! : 
; 600 0659 1! IDX_DFN - address of index descriptor for this key : 
; 601 0660 1! IDX$B8_DATBKTYP - fype of data bucket : : 
; 60 0661 1! IDX$V_KEY_COMPR - if set, index key compression is enabled : 
; 60 B66 ! IDX$B_KEY5Z - key size : 
; 605 0664 1 : - address of IFAB : 
: 0665 1! IFBSW_LRL - record size if fixed length record format : 
: 607 0666 1! IFB$B_RFMORG - record format of primary data records : 
; 608 0667 1! IFBSB_PLG_VER - prologue version of file F 
; 609 0668 1! ; 
; 610 0669 1! REC_ADDR - address of record : 
; 611 0670 1! : 
; 612 0671 1 =! OUTPUT PARAMETERS: : 
; 613 0672 1! NONE 3 
; 614 0673 1! : 
; 615 0674 1 ! IMPLICIT OUTPUTS: F : : : 
; 616 0675 1! REC_SIZE - size of the entire record minus the overhead : 
3; 617 0676 1! : 
; 618 677 1 ! ROUTINE VALUE: : 
; 619 678 1! : ; : 
: 620 0679 1! The number of bytes of record overhead. This overhead never includes | : 
3; 621 NMARQ0 1! the key or key compression overhead. 3 
; ose 0681 1! | 3 
3 6 0682 1 ! SIDE EFFECTS: 3 
: 624 0685 1! NONE | 3 
3; @e2 0684 1! : 
3; 626 0685 1 !-- ; 
: 627 686 1 3 
; 628 68 BEGIN : 
; a4 688 $ 
; 630 0689 EXTERNAL REGISTER 3 
3 631 0690 R_IDX_DFN_STR, 3 
| 
J 


F 8 
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3; 6 691 R_IFAB_STR, $ 
; e38 63¢ R-REC_ADDR_STR; ; 
3 659 694 LOCAL $ 
3 2 § 23? OVERHEAD; > 
3 ° 3 $37 } CASE 1: Determine size and overhead for an INDEX RECORD. ; 
; 640 45 IF .REC_TYPE GTR 0 : 
; 641 0700 THEN $ 
: ong b70) BEGIN ! CASE 1 : 
3 644 0708 ! The overhead for a prologue 3 index record is 0 while the record : 
> 6465 704 ! size is the size of the key including compression bits if index 3 
; 646 705 ! key compression is enabled. NOTE for the purpose of determining 3 
; 647 706 ! record overhead and size, RMS does not consider the V 3 
; 648 707 ! downpointer, located separately from the key at the other end of : 
3 o68 378 : the bucket, to be a part of the index record. : 
; 691 0710 IF .IFABCIFBSB_PLG_VER] GEQ PLGSC_VER_3 ; 
: 626 0711 3 THEN F 
3; 63 far 4 BEGIN $ 
; 654 0713 4 OVERHEAD = F F 
: 655 0714 4 IF _.1DX_DFNCIDX$V_IDX_COMPR ; 
; 656 0715 4 3 
; 657 0716 4 REC_SIZE = .(.REC_ADDR)<0,8> + 2 3 
; 658 0717 4 3 
; 659 0718 4 REC_SIZE = .IDX_DFNCIDX$B_KEYSZ); F 
; 660 0719 4 END 3 
: 661 o7s0 4 3 
; 66 0721 4 ! The overhead for a prologue 1 or 2 index record is the one-byte 3 
; 66 07 ¢ 4 ! control byte and the VBN downpointer while the record size is the : 
; 664 07 4 ! size of the key. ; 
; 665 0724 4 ! PF 
; 666 0725 3 3 
; 667 0726 4 BEGIN : 
; 668 0727 & OVERHEAD = .REC_ADDRCIRC$V_PTRSZ] + IRCSC_DATPTRBAS; : 
; 669 0728 4 REC_SIZE = .IDX_DFNCIDX$B_REYSZ]; F 
; 670 0729 4 : 
: 671 0730 ; END ! CASE 1 : 
3; 67 0731 3 
3 th Oras ; CASE 2: Return size and overhead for a PRIMARY DATA RECORD. F 
; 675 734 ELSE IF .REC_TYPE EQL 0 3 
: 676 735 HE 3 
; ort 73) BEGIN ! CASE 2 | 3 
; 679 0738 ! Determine the amount of record overhead in a prologue 3 primary | F 
; 680 O46 : data record. | 3 
; 68 741 IF .IFABCIFB$B_PLG_VER] GEQ PLGSC_VER_3 ; 
: 68 greg 3 THEN F 
3; «684 743 4 BEGIN 3 
; 685 O76 4 ; 
; 686 745 4 ! If the record is not a RRV then the amount of record overhead : 
; 687 o7e6 & ! will depend on whether the file contains fixed length data | : 
; 688 0747 4 ' records with neither the primary key nor the data portion ; 

| 

| 

| 

! 


: 
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FOE bO0 RMSPEC_OVHD 12-808-138e eet, ERMS.SRC RMSNEXTRE .B32; . (6) v04 
3 9 748 4 ! compressed, or any other type of record. The difference is | : 
; £59 749 4 ; in whether a two-byte record size overhead field is present ; 
; $3) f ? 2 } or not. : 
3; 8 7 § 4 ! If the file contains fixed length records and both key and ; 
: 694 7 4 ! data compression are disabled, then the record's size (minus 3 
; 695 754 4 ! the record overhead's contribustion) is a known constant; ; 
; 696 755 & ! otherwise, for the be geg record types the size maybe | ; 
3 oof f § ? } obtained from the Last two ytes of the record's overhead ‘ 
: $99 738 é IF NOT .REC_ADDRCIRCS$V_RRV) | : 
; 701 $80 g IF NOT ((. JFABCIFBSB_RFMORG) EQLU FABSC_FIX) 3 
; 70 0761 AND (.IDX_DFNCIDXS$SB_DATBKTYP] EQLU IDRSC_NCMPNCMP) ) 3 
: 70 6706 4 THEN : 
; 704 0763 5 BEGIN 3 
; 705 0764 5 OVERHEAD = IRC$C_VAROVHSZ3; 3 
; 706 0765 6 REC_SIZE = .(.REC_ADDR + . OVERHEAD 3 
; 707 0766 5 = IRCSC_DATSZFLD)<0,16>; F 
3; 708 0767 5 END 3 
; 709 0768 4 ELSE | 3 
; 710 0769 5 BEGIN F 
s 771i 0770 5 OVERHEAD = IRCS$C_FIXOVHSZ3; 3 
: ar O77 3 IF NOT .REC_ADDREIRC$V_DELETED] ; 
; at) O78 : REC_SIZE = .1FABCIFBSW_LRLJ : 
; 716 0775 5 REC_SIZE = .IDX_DFNCIDXSB_KEYSZ); : 
; 7? 0776 5 ND 3 
s 7 0777 5 F 
3; 719 0778 5 ! If the record is a RRV then the overhead will consist of a $ 
s fe 0779 5 ! one-byte control byte, a two-byte record ID, and a six-byte 3 
: 721 0780 5 ! RRV provided the record contains an RRV. Note that for an 3 
3 1s¢ 0781 5 ' RRV, the record's size is always 0. 3 
3 fe o7e6 5 ! 3 
3 oss 0783 4 ELSE ; 
2). fan th 4 IF .REC_ADDRCIRCSV_NOPTRSZ) 3 
; 726 785 4 3 
; 727 o786 4 OVERHEAD = IRC$C_DATOVHSZ3 : 
; fe 0787 4 3 
; 44 0788 4 OVERHEAD = IRCS$C_RRVOVHSZ3; : 
wR 0789 4 3 
s si 0790 4 END : 
3; 7 ¢ t44 4 . ; : 
s ¢ rs 4 ! Determine the amount of record overhead in a prologue i or 2 : 
s 734 878 4 ! primary data record. : 
3 739 794 & : : 
3 738 0795 3 ELSE ’ 
ee br 38 4 BEGIN : 
3 £ 797 & : 
; 739 0798 4 ! If the record is not a RRV then the amount of record overhead : 
: 740 $443 4 ! will depend on whether the file contains fixed length data : 
3; 741 800 4 ! records or variable length data records. The difference is : 
3 reg 0801 4 ! in whether a two-byte record size overhead field is present : 
3 She o808 ? : Or not. 
3 «745 04 4 ! If the file contains fixed length records then the record's 


OVERHEAD = IRCSC_DATOVHDSZ + IRCSC_DATSZFLD 


Bh j 
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irae tty RMSREC_OVHD 122808-1 382 eet, FRMS.SRC RMSNEXTRE .832; . (6) 
; 74 5 4 ! size (minus the record overhead's contribution) is a known | : 
; 24 + : constant; otherwise, for variable length records the size ; 
; 74 8 ” 1 maybe obtained from the Last two bytes of the record's : 
: £38 He 2 ; overhead. ; 
: 751 10 4 IF NOT .RECADDRCIRCSV,RRVJ | ; 
: 7 j os18 & IF .IFABCIFBSB_RFMORG) EQLU FABSC_FIX | : 
3; 756 13 4 THEN 3 
3 > 14 BEGIN $ 
3 f $ 15 OVERHEAD = IRCS$C_FIXOVHDSZ; : 
: 3? 16 REC_SIZE = .1FABCIFBSW_LRLI; ; 
: 759 818 6 ELSE : 
: 760 81 : BEGIN : 
; 761 820 OVERHEAD = IRCS$C_VAROVHDSZ; : 
; 76 0821 REC_SIZE = .(.REC_ADDR + .OVERHEAD | ; 
; 76 08 ¢ - IRCSC_DATSZFLD)<0,16>; : 
: ree 8 4 si 
: 766 0825 ! If the record is a RRV then the overhead will consist of a : 
; 767 bas$ ! one-byte control byte, a one-byte record ID, and a five-byte : 
; 768 08 ' RRV provided the record contains an RRV. The record's size : 
: 769 0828 ' is 0. : 
: 970 OBS ELSE ; 
; 7 O31 4 IF .REC_ADDRCIRCSV_NOPTRSZ) 
i 20h 0838 ‘ OVERHEAD = IRC$C_DATOVHDSZ : 
: 77 ba3s 4 OVERHEAD = IRCSC_RRVOVHDSZ; ; 
: aes OB3 3 END; 
; 9 0838 END ! CASE 2 : 
: re) Beco CASE 3: Determine size and overhead for a SIDR. : 
: 78 OB4e ELSE ! .REC_TYPE_LSS 0 | ; 
; ree Bae; BEGIN ! CASE 3 : 
: 786 0845 ! The overhead of a prologue 3 SIDR is fixed regardless of whether : 
; Ad +744 duplicate alternate keys are, or are not allowed. : 
; 789 0848 iF . IFABLIFBSB_PLG_VER] GEQ PLGSC_VER_3 | 3 
i 791 0850 OVERHEAD = IRCSC_SDROVHSZ3 | ; 
: 598 o2¢ ! The overhead of a prologue 2 SIDR will depend upon whether | : 
3 796 85 ! duplicate aiternate keys are allowed or not, and if so, whether : 
: 795 S2¢ an unused duplicate count field is present in the record or not. : 
: +99 856 ELSE | : 
; 298 He 1f_.REC_ADDRCIRCS$V_NODUPCNT) | : 
6 | Py 
3 5 OVERHEAD = IRCS$C_DATOVHDSZ + IRCSC_DATSZFLD : 
B01 0860 ELSE | 

| 
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+ IRCSC_DCNTSZFLD; 


The record's size (minus the overhead'’s contribution) may be 
obtained from the last two b ae Fo the SIDR overhead regardless 
e. 


of the prologue version of the fil 


! 
' 
i 
' 
REC_SIZE = .(.REC_ADDR + .OVERHEAD = 2)<0,16>; 
END; ! CASE 3 


} Return the number of bytes of record overhead. 
RETURN .OVERHEAD; 
END; 


52 DD 00000 wssen at 
2 ow ie aS 
is 15 00009 BLEQ 
03 62 91 00008 CMPB 
OF iF Boy BLSSU 
39 D4 0001 CLRL 
wt) ORE Eg 
51 03 co 4 9s ADDL 
65 11 00010 BRB 
02 QO EF OOOIF 1$ EXTZV 
ee hl aes 
$3 12 00029 2$ BNEQ 
03 62 91 00028 CMPB 
30 (1F 308 F BLSSU 
66 03 69 00 S 
HF Be at 
eed 6 Bee 
50 28 00 00040 3$: MOVL 
11 ope BRB 
50 33 DO 00045 4$: MOVL 
66 3 3 0048 BBC 
51 20 a 74 Bee 5$: 2 Naa 
‘eet! Cae 
es 
50 4 0 0 22 7$: govt 
6 03 3 Hi 8$: BBS 
Le ioe Be 
50 07 06 006A MOVL 


ERHEAD 
#3, 28(1DX_DFN), 5$ 
EC_ADDR)> REC. SIZE 


SIZE 


REC_ADDR), OVERHEAD 
EAD 


(REC_ADDR), 6$ 
FAB); #1 


bo 


IDX_DFN), #6 
, OVERHEAD 
OVERHEAD 
(REC_ADDR), 9$ 
IDX_DFN), REC_SIZE 
, (REC_ADDR), 7$ 
OVERREAD 
OVERHEAD 
(REC_ADDR), 11$ 
IFAB)> #1 
OVERHEAD 


Am -+ F- = AO 


CoO. toe 
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RMSNEXTRE 16-Sep 3: AX-11 Bliss-32 v4.0 Pa 
tae to RMSREC_OVHD 12-8 Sep 71382 9% 33 ‘4 RMS. SRCJRM3NEXTRE. g334 - é 
51 52. AA D 9$: MOVZWL 82(IFAB), REC_SIZE : 
$ FE Gages 9%: age ram. ne ; 
50 9 00 t 10$: OVL #3 OVERHEAD : 
05 $6 4 €1 8 11$: BBC #4, (REC_ADDR), 12% : 
SMT Stir gaat fig OVERREM ; 
50 D0 1 128 MOVL OVERHEAD ; 
1D 11 13$ BRB : 
03 91 0 14$ CMP. (R2), #3 : 
1F 00 BLSSU : 
50 2 b 99 OVERHEAD : 
BR BRB : 
05 $6 4 €1 00090 15$: BBC #4, (REC ADDR), 16$ : 
D MOVL OVERREAD : 
4 DO 00094 AEA 
3611 9097 BRB 135 ° : 
50 08 00 00099 16$:  MOVL 8, OVER : 
FE A0G6 9F 0009C 17S: PUSHAB <2(OVERHEAD) CREC_ADDRJ : 
51 9E 3¢ 9000 MOVZWL a(SP)+, 12E F 
04 BA OO0A3 12S: POP #°M<R2> : 
05 000A5 RSB : 


; Routine Size: 166 bytes. Routine Base: RMSRMS3 + 0102 
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RMSSIDR_END 14-Sep-19 
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k 8 
1enSep-1986 15:01:50 EAMS-SREIRASNEXTRE 032; 


ZSBTTL ‘RMSSIDR_E 
GLOBAL ROUTINE RASSIDR END : RLSRABREG_67 = 


e+ 


FUNCTIONAL DESCRIPTION: 


The purpose of this routine is - return the address of the first 
past the end of the current SIDR 


i CALLING SEQUENCE : 
BSBW RMSSIDR END() 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 

REC_ADDR - address of the SIDR 
output PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
NONE 


{ ROUTINE VALUE: 
Address of the first byte past the current SIDR's Last array element. 
{ SIDE tt 


BEGIN 
EXTERNAL og Ue 
R_IDX_BFN_STR 
R-REC-ADDR_STR; 
CAL 

EAD, OF SIDR 
Save the address of the beginning of the SIDR. 
SAVE_REC_ADDR = .REC_ADDR; 
: Obtain the address of the next record in the bucket. 


RMSGETNEXT REC); 
END_OF_SIDR = .REC_ADDR; 


: Restore the address of the beginning of the SIDR, and return the address 
! of the next record - effectively the end of the current SIDR. 


De Se Be Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seve Se Se Se See Se Se Fe Se Se Se Se Se Se See Fe Se Se Se Se Se Se se Se ee Sevs Seas te ee teas 


PM RE 

vou B00 RMSSIDR_END 
3 3 
3 i \) REC ADDR = .SAVE_REC_ADDR; 
; ie $ 5 RETORN .END _OF VETDRs 7 
3 A S $ 
; 87 09 END; 


52 
52 56 
50 FEFF 
56 $5 
04 


8 
16-Sep-1984 + 91: ae $8 VAX-11 ght =32 V4.0-74 


14-Sep-1984 


DD 00000 RMSSIDR_END:: 
SHL 


PU 
Be 000 MOV 
Q 0000 6BSBW 
DO 00008 MOVL 
DO 00008 MOVL 
BA sis POPR 
05 0001 RSB 


; Routine Size: 17 bytes, Routine Base: RMSRMS3 + 01A8 


CRMS.SRCIRMSNEXTRE .B32; 
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18825-1986 93:01:30 RMS SRCURASNERTRE- 03271 


ZSBTTL "RMSSIDR_FIRST* 
GLOBAL ROUTINE RMSSIDR_FIRST (FLAGS;RFA_VBN, RFA_ID) : RLSSIDR_FIRST = 


1+ 
1 

FUNCTIONAL DESCRIPTION: 
The purpose of this routine is to return the address and optionally the 
RFA pointer ofthe first element of the inputed SIDR. The components of 
the RFA pointer are returned separately (VBN and ID), and in the RMS 
cluster environment, uniquely identifies the SIDR from among all SIDRs 
with that key value. 


CALLING SEQUENCE: 
BSBW RMSSIDR_FIRST() 


INPUT PARAMETERS: 


FLAGS - if 1, return the RFA pointer of the first element 
IMPLICIT INPUTS: 
ID index descriptor for the SIDR 


X_DFN 
“IDX$V_KEY_COMPR if set, SIDR key compression is enabled 


IDX$B_KEYSZ - size of a fully expanded SIDR key 
REC_ADDR - address of the SIDR 
OUTPUT PARAMETERS: 
RF A_VBN - VBN of the SIDR's first array element RFA pointer 
RFA_ID - 1D of the SIDR's first array element RFA pointer 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 

Address of the first array element of the SIDR. 
SIDE EFFECTS: 

AP is trashed 


BEGIN 
BUILTIN 
AP: 


EXTERNAL REGISTER 
COMMON_R 


ABREG, 
R_IDX_BFN_STR 
R-REC-ADDR_STR; 


LOCAL 


N 8 
vorvb00™® RMSSIDR_FIRST 1e=86b-1984 13:01:30 EAMS.SREIRMENEXTRE B30; 


3; F 0°95 BEGIN_SIDR 

; 5296 FIRST ELEMENT; 

; 1 O398 ! After saving the address of the SIDR, position to the SIDR's first 

; ok : array element. 

3 34 BEGIN_SIDR = .REC_ADDR; 

; 346 : : REC_ADDR = .REC_ADDR + RMSREC_OVHD(-1); 

; 968 1008 IF _.1DX_DFNCIDXSV_KEY_COMPRI 

3 350 199 7 REC_ADDR = .REC_ADDR + .(.REC_ADDR)<0,8> + IRCSC_KEYCMPOVH 

3 93¢ 1008 REC_ADDR = .REC_ADDR + .IDX_DFNCIDX$B_KEYSZ); 

: 387 1011 ! If the caller has requested that the VBN and ID of the first element's 
; 955 19ig ! RFA pointer be returned, extract them from the RFA pointer of the first 
; 956 101 ! element of the SIDR. 

; 957 1014 ' 

; 958 1015 IF .FLAGS<0,1> 

; 959 11g THEN 

; oer iste RMSEXT_ARRY_RFA (RFA_VBN, RFA_ID); 

; 4 1019 ! Restore to REC_ADDR the address of the SIDR and return the address of the 
; 96 1020 ' first element. 

; 964 1021 ! 

: 965 10 ¢ FIRST_ELEMENT = .REC_ADDR; 

3 208 10 REC_ABDR = .BEGIN_SIDR; 

; 96 19 4 

; 968 1025 RETURN .FIRST_ELEMENT; 

: 969 1026 

; 970 1027 1 END; 


5E 08 C2 00000 RMSSIDR_FIRST:: 
SUBL2 #8, SP 
52 56 00 00003 MOVL REC_ADDR, BEGIN_SIDR 
51 01 ce 0006 MNEGL #1,°R1 
FF 3D 0909 BSB RMSREC_OVHD 
56 30 CO 900¢ ADDL2 RO, REC ADDR 
OA 1 OA 6 Ft OOF C #6, 28(IDX_DFN), 1$ 
50 66 9A 00014 MOVZBL (REC_ADDR)- 
56 02 A046 1 0017 OVAB 2(ROJCREC_ADDR], REC_ADDR 
07 11 0001C RB 
50 20 AZ 9A OOOIE 18 MOVZBL 3 (1DX DFN), RO 
6 50 cg ADDL2 RO, REC_ADDR 
08 Oc AE ECE 2$: BLBC FLAGS, 3$ 
SE DD PUSHL SP 
08 AE Hi 0 B PUSHAB RFA_VBN 
FEBD F SBW - RMSEXT_ARRY_RFA 
f tO 000 ADDL2 # 
$ D 6 3$: MOVL REC_ADDR, FIRST_ELEMENT 
6 D 7 MOVL § BEGIN_SIOR, RECTADDR 


: Slepens Temes 
3; Lines/CPU Min: 


: ponery Used: 
; Compila 


506 code i 0 data bytes 
wo ¢ 8.1 


180 
; Lexemes/CPU-Min: 13296 


100 pages 


tion Complete 


B 9 

RMSNEXTRE 16-Sep-1984 01:53:4 AX-11 Bliss-32 V4.0-742 
v04-000 RMSSIDR_FIRST 14-Sep-1986 93533 35 RMS.SRCIRMSNEXTRE.B32;1 

52 E DO OO03A MOVL RFA_ID, R2 

51 H: t Mane MOVL RFA_VBN, R1 

05 00040 RSB 

; Routine Size: 65 bytes, Routine Base: RMSRMS3 + 0189 
: 971 1028 1 
; oT 1029 1 
; wT 1030 1 END 
: 974 1031 1 
s 975 1032 0 ELUDOM 
; PSECT SUMMARY 
4 Name Bytes Attributes 
> RMSRMS3 506 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: eeoneece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 64 2 154 00:00.4 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3NEXTRE/OBJ=OBJ$:RM3NEXTRE MSRC$:RM3NEXTRE/UPDATE=(ENHS$:RMSNEXTRE) 
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